bitcoin_time <- read.csv(file="bitcoin_time.csv")
names(bitcoin_time) <- c("time")
pdf("bitcoin_time.pdf")
plot(bitcoin_time$time, pch=15, main="Bitcoin Transaction Time", xlab="Transaction", ylab="Time")
anonycoin_time <- read.csv(file="anonycoin_time.csv")
names(anonycoin_time) <- c("time")
pdf("anonycoin_time.pdf")
plot(anonycoin_time$time, pch=15, main="Anonycoin Transaction Time", xlab="Transaction", ylab="Time")
bitcoin_track <- read.csv(file="bitcoin_track.csv")
names(bitcoin_track) <- c("time")
pdf("bitcoin_track.pdf")
plot(bitcoin_track$time, pch=15, main="Bitcoin Transaction Track", xlab="Transaction", ylab="Tracked")
anonycoin_track <- read.csv(file="anonycoin_track.csv")
names(anonycoin_track) <- c("time")
pdf("anonycoin_track.pdf")
plot(anonycoin_track$time, pch=15, main="Anonycoin Transaction Track", xlab="Transaction", ylab="Tracked")
q()
